home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / Perp.cxt / 00238.txt < prev    next >
Encoding:
Text File  |  2000-01-25  |  1.1 KB  |  30 lines
  1.  printer(mTextBox,0,0,printer(mGetPageWidth),150,FALSE)
  2.   printer(mSetTextFont, "Times")
  3.   printer(mSetTextSize, 12)
  4.   
  5.   set printedText = "Students:" & RETURN
  6.   
  7.   set the itemDelimiter = ","
  8.   set the itemDelimiter = RETURN
  9.   set numberStudents = (the number of items in gStudentNameTable) - 1
  10.   --  alert "numberStudents: " & numberStudents 
  11.   repeat with counter = 1 to numberStudents
  12.     set the itemDelimiter = RETURN
  13.     set student = item counter of gRosterTable
  14.     --    alert "Student: " & student
  15.     if (student contains "eapscore") then set validStudent = TRUE
  16.     else set validStudent = FALSE
  17.     repeat with counter2 = 1 to numberStudents
  18.       set the itemDelimiter = RETURN
  19.       set name = (item counter2 of gStudentNameTable)
  20.       --      alert "Name: " & name
  21.       if validStudent and student contains name then
  22.         set the itemDelimiter = "+"
  23.         set name = (item 2 of line counter2 of gStudentNameTable) & " " &┬¼
  24. (item 1 of line counter2 of gStudentNameTable)
  25.         set printedText = printedText & name & RETURN
  26.       end if
  27.     end repeat
  28.   end repeat
  29.   set the itemDelimiter = ","
  30.   printer (mAppendText,printedText & " ")